+!trunk(g):~raining&loc(g,x) <- detect(g,x); move(x); collect(g); put_trunk(g).